home *** CD-ROM | disk | FTP | other *** search
/ Just Call Me Internet / Just Call Me Internet.iso / com / computer / casio_st / prog_fx / oisac2 / l_1000.txt < prev    next >
Text File  |  1994-03-01  |  1KB  |  33 lines
  1. 5 ONERRORGOTO500
  2. 10 MODE8:DIM:ERASEa,a$:DIMa(3),a$(1):DEFSEG=0
  3. 100 CLS:PRINT" MC[]   MR[]   M-[]   M+[]";
  4. 110 LOCATE0,1:PRINTCHR$(5);a(2);:LOCATE16,1:PRINTa(3);:LOCATE0,0:LOCATE0,1
  5. 120 a$(0)=INPUT$(1,@):a(0)=ASC(a$(0)):IFa(0)=46 OR(a(0)>47 ANDa(0)<58) THEN200
  6. 130 IFa(0)=42 ORa(0)=43 ORa(0)=45 ORa(0)=47 ORa(0)=94 THENa$(0)=STR$(a(2))+a$(0):GOTO200
  7. 140 IFa(0)<14 ORa(0)>127 THEN110
  8. 150 IFa(0)=40 ORa(0)=41 THEN200
  9. 160 IFa(0)>27 ANDa(0)<32 THEN300
  10. 200 LOCATE0,0:LOCATE0,1:PRINTCHR$(5);a$(0);
  11. 210 a(0)=ASC(INPUT$(1)):a(1)=PEEK(206):IFa(0)>32 ANDa(0)<127 ANDa(1)=0 THENPRINTCHR$(a(0));:GOTO210
  12. 220 IFa(0)=8 THENPRINTCHR$(8);:GOTO210
  13. 230 IFa(0)=31 ANDa(1)=0 THENGOSUB350:PRINTa$(1);:GOTO210
  14. 240 IFa(0)=13 ORa(0)=28 ORa(0)=29 THEN400
  15. 250 IFa(0)=30 THENa(3)=0:GOTO210
  16. 260 IFa(0)=12 THENa$(0)="":GOTO200
  17. 270 IFa(0)=9 ORa(0)=14 ORa(0)=15 THENPRINTCHR$(a(0));
  18. 280 GOTO210
  19. 300 IFa(0)=28 THENa(3)=a(3)+a(2):GOTO110
  20. 310 IFa(0)=29 THENa(3)=a(3)-a(2):GOTO110
  21. 320 IFa(0)=30 THENa(3)=0:GOTO110
  22. 330 IFa(0)=31 THENGOSUB350:a$(0)=a$(1):GOTO200
  23. 350 a$(1)=STR$(a(3)):IFa(3)>=0 THENa$(1)=MID$(a$(1),2)
  24. 360 RETURN
  25. 400 MODE33(32,1024,223):IFCALC$="" THEN110
  26. 405 a(2)=VALF(CALC$):IFa(0)=13 THEN110
  27. 410 IFa(0)=28 THENa(3)=a(3)+a(2):GOTO110
  28. 420 IFa(0)=29 THENa(3)=a(3)-a(2):GOTO110
  29. 500 IFERR=1 THENCLS:ONERRORGOTO0
  30. 510 LOCATE0,0:LOCATE0,1:PRINTCHR$(5);" Error";:w$=INPUT$(1,@)
  31. 520 IFERL=300 ORERL=310 THENRESUME110
  32. 530 LOCATE0,1:PRINTCHR$(5);CALC$;:RESUME210
  33.